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PREFACE 

The user of this manual is expected to be familiar with FOCAL 
programming and the GT40 graphics system. The following documents are 
prerequisites to using FOCAL-GT/RT: 

FOCAL-11 USER'S MANUAL (DEC-11-LF0CA-D-D) 
GT40 USER'S GUIDE (DEC-11-HGTGA-A-D) 



The "HOW TO OBTAIN SOFTWARE INFORMATION" page, located at the back of 
this document, explains the various services available to DIGITAL 
software users. 

The postage prepaid "READER'S COMMENTS" form on the last page of this 
document requests the user's critical evaluation. All comments 
received are acknowledged and will be considered when subsequent 
documents are prepared. 

The software described in this document is furnished to the purchaser 
under a license for use on a single computer system and can be copied 
(with inclusion of DIGITAL'S copyright notice) only for use in such 
system, except as may otherwise be provided in writing by DIGITAL. 

The material in this document is for information purposes only and is 
subject to change without notice. DIGITAL assumes no responsibility 
for the use or reliability of software and equipment which is not 
supplied by it. DIGITAL assumes no responsibility for any errors 
which may appear in this document. 
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CHAPTER 1 
FOCAL- GT 



FOCAL-GT is a version of FOCAL- 11 that includes additional functions 
to handle a GT40 and additional code to enable the user to communicate 
with a host computer. The GT40 may include either a keyboard or a 
Teletype. FOCAL-GT may be conditionally assembled to include a 
Laboratory Peripheral System (see Chapter 4) . FOCAL-RT, described in 
Chapter 2, performs all the operations described for FOCAL-GT in 
addition to the LPS functions. 

FOCAL text is displayed on the GT40's screen and optionally on the 
Teletype if the system includes one. The user can create and run any 
FOCAL program that could be run using FOCAL-11 on a PDP-11/05. In 
addition, he can use the new functions to create graphic 
representations on the GT40's scope. 

When used as a terminal, FOCAL-GT displays all communications with the 
host computer on the GT40 scope and optionally on the Teletype. The 
user can perform any Monitor operations he could perform from a 
Teletype. He can also save FOCAL programs and output on any storage 
device accessible to the host computer and read FOCAL programs 
previously saved on such storage devices. 



1.1 THE DISPLAY 

All text displays on the screen, 72 upright characters per line and a 

maximum of 32 lines. FOCAL-GT I/O displays as all upper case 

characters; terminal I/O may include upper and lower case characters. 
The user may dynamically vary the size of his text file. 

When the text file is full, or when 32 lines have been displayed, 
FOCAL-GT clears the screen of text and resets a solid rectangular 
cursor to the upper left hand corner of the screen where additional 
input will be displayed. The FOCAL-GT cursor does not respond to 
cursor control characters nor to FORM FEED or TAB characters. 

Graphics done by FOCAL consist of lines, points, and italic characters 
displayed in any of the modes available on the GT40. These modes 
include solid, dotdash, longdash, or shortdash lines, blinking or 
steady display, any of 8 intensities, and light-pen sensitive or 
insensitive. Any line, point, or character may have its own mode or 
may take on the mode of the previous data in the graphics file. The 
graphics file starts with solid, non-blinking, non-light pen sensitive 
graphics of intensity 4. 



1.2 THE NEW FUNCTIONS 

The new code added to FOCAL-11 is in the form of an FNEW as described 
in Section 6.3 of the FOCAL-11 USER'S MANUAL. This FNEW, unlike 
user-written FNEW's, constitutes a part of the FOCAL-11 source which 
can be conditionally assembled. The new FOCAL-11 also contains two 
additional operate options: S and H. FNEW consists of 11 graphic 
functions, code to handle terminal operations, and a display file. 
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The display file consists of two contiguous parts (see Appendix C) , 
the graphics file, and the text file. The graphics file contains all 
graphic data that the user has displayed using the graphics functions. 
The text file contains all the I/O currently displayed on the screen. 
All I/O enters this file and displays on the screen; the user may 
cause output to echo on the Teletype by using the OPERATE T (O T) 
command and can reset to only screen echo by using OPERATE S (OS), 
which is the default setting. I/O output under the T option displays 
considerably more slowly than under the S option. 

The graphics file consists of small blocks called LOCS which contain 
the graphic data. Each LOC has assigned to it a number corresponding 
to its offset from the start of the graphics file. The first LOC has 
the number and starts at coordinates (0,0), the lower left hand 
corner of the screen. Graphic functions which add data to the 
graphics file use the LOC number as one of their arguments. The 
graphic data enters the LOC specified, overlaying any data currently 
in that LOC. This makes it possible, for instance, to continuously 
alter the length or angle of a vector or change its mode. 

The user may use the FSKP function to increase the size of his 
graphics file while decreasing his text file. The text file is reset 
to its original size when the user types two CTRL/C's (typing C while 
holding down the CTRL key) . 



1.3 THE GRAPHICS FUNCTIONS 

The graphics functions add data to the display file, alter its 
configuration, return data from the file, and handle the light pen. 

Each of the functions that add data to the file includes the LOC 
offset as its first argument. Figure 1-1 shows the display file. It 
consists of a graphics file divided into LOCS and a text file. Data 
added to the graphics file enters the LOC specified in the function 
argument list. The function then returns the value of the next LOC in 
the file. If the user specifies a negative LOC, FOCAL-GT uses its 
absolute value, returning the value specified plus 1. If the user 
specifies a LOC beyond the end of the graphics file, FOCAL-GT returns 
the negative of this LOC +1 and places the data in the last LOC of the 
graphics file. 

The GT40 starts executing the data in the graphics file at LOC 0. It 
sets the display beam to coordinates (0,0), the lower left hand corner 
of the screen, then moves the beam according to the information it 
encounters in each succeeding LOC, ignoring LOCS that do not contain 
any information. When the GT40 has completed its execution of the 
graphics part of the display file, it sets the display beam to the 
upper left hand corner of the screen and begins execution of the text 
file. At the end of the text file, it resets the beam to (0,0) and 
restarts the graphics file. 
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Figure 1-1 The Display File 
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1.3.1 Lines, Points, and Characters 

FVEC(LOC,X,Y) 

FVEC puts the vector (X,Y) into the graphics file. This vector starts 
where the last datum in the graphics file ended and overlays any datura 
currently in the LOC specified in its argument list. 

Example : 

F I=1,100;X FVEC(I,10,FSQT(I)*20) 

This draws a parabola consisting of line segments in LOGS 1 to 100. 

FMOV(LOC,X,Y) 

FMOV moves the location of the display beam (X,Y) . It is the 
equivalent of an invisible vector added to the graphics file. 

Example : 

1.1 S LOC=l 

1.2 S LOC=FVEC(LOC,20,20) ;S LOC=FVEC (LOC,20 ,-20 ) 

1.3 S LOC=FVEC (LOC, -40,0) 

1.4 F I=1,500;X FMOV(0,I,I) 

This draws a triangle then gradually moves it diagonally across the 
screen. 

FPT(LOC,X,Y) 

FPT adds a point at absolute location (X,Y) on the screen regardless 
of the previous location of the display beam. Any vector added to the 
file in the next LOC will start at this absolute location. 

Example : 

X FPT(1,512,390) 

This draws a point at the center of the screen. 

FSET(LOC,X,Y) 

FSET sets the display beam to an absolute location on the screen. It 
is the equivalent of an invisible absolute point. 

Example : 

F I=1,2,10;X FSET(I, 1*20, 1*20) ;X FVEC (1+1 ,100 ,0) 

This draws horizontal vectors at 5 points along a 45-degree slope. 

FTXT(LOC,A,B,C,...) 

FTXT inserts italic characters in the graphics file. Each LOC in the 
file can contain a maximum of four characters; the origin of these 
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characters (the lower left hand corner of the first character) starts 
at the current position of the display beam. PTXT inserts characters 
starting at the LOC specified in the first argument and continues to 
insert characters until it reaches the last argument, going on to the 
next LOC in the graphics file whenever one fills. It returns the 
value of the last LOC it has used plus 1. 

The argument of FTXT take the form of numeric values that correspond 
to FOCAL character values or to ASCII values. For instance, FOCAL-GT 
interprets the argument OD as the letter D, but it also interprets the 
argument 68 as the letter D. Appendix B contains a complete list of 
FOCAL-GT' s character set and the corresponding decimal values. For 
further explanation of FOCAL' s treatment of characters used as numeric 
values, see the FOCAL-11 USER'S MANUAL. 

EXAMPLE : 

1.1 X FMOV(1,500,500) ;S L0C=2 

1.2 S LOC=FTXT(LOC,0N,05,0W,0BL,0L,05,0T,0T,05,0R,53) 

1.3 ASK "LETTER" L 

1.4 X FTXT(LOC,L) ;G 1.3 

This displays NEW LETTER at the center of the screen, then accepts 
input and displays the value of the input. Note that OBL has the 
value 32 which corresponds to a blank. 



1.3.2 Skips 

FSKP(LOC[,L2] ) 

FSKP serves a number of purposes depending upon the values of its 
arguments. Basically, it places in the LOC specified in the first 
argument, a jump to the LOC specified in the second argument. A jump 
serves to skip all data in the intervening LOCS. The second argument, 
L2, is shown in square brackets to indicate that it is optional. 

If L2 is beyond the entire graphics file, FOCAL-GT increases the 
length of the graphics file at the expense of the text file so that L2 
becomes the last LOC. In so doing, FOCAL-GT clears the text file, 
resetting the cursor to the upper left hand corner of the screen and 
inserts, in LOC, a jump to the start of the text file. If L2 
specifies an offset that surpasses the entire text file, FOCAL-GT 
decreases the size of the text file so that it displays only one line 
at a time and inserts, in LOC, a jump to the start of the text file. 

If L2 is negative, FOCAL-GT inserts a jump, in LOC, to the beginning 
of the graphics file. Thereafter, FOCAL-GT never reaches the part of 
the display file that displays text — so the text does not display. 
If the user wished to type in additional data, he would have to do so 
without an echo on the screen. 

If the argument L2 does not appear in the argument list of FSKP, as in 
XE FSKP (LOC) , FOCAL-GT inserts a jump to the start of the text file 
and clears the text file. Thus, the function may be employed to clear 
all text display from the screen. 
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Examples : 

For a graphics file 100 LOCS long, 

X FSKP(10,50) 
skips around all data in LOCS 11 to 49; 

X FSKP(10,150) 
makes the graphics file 150 LOCS long and clears the text file; 

X FSKP(10, 10000) 

makes the text file one line long, devoting the remainder of the 
display file to graphics; 

X FSKP(10,-1) 

enters a skip to the start of the graphics file so that any text in 
the text file does not display; 

X FSKP(10) 

enters a skip to the start of the text file and clears the text file. 



1.3.3 Use of Negative LOCS 

As mentioned previously, FOCAL-GT interprets a negative value in the 
LOC argument of a graphics function as its absolute value but returns 
the negative value plus 1. FOCAL-GT also returns the negative of a 
LOC argument that exceeds the end of the graphics file. The user can 
use these characteristics to draw in sequentially lower LOCS and to 
automatically reverse when graphics input reaches the end of the 
graphics file. 

Example : 

1.1 X FSKP(l) ;S LOC=l 

1.2 F I=0,.1,1000;S LOC=FVEC (L0C,1 ,FSIN (I) *10+1) 

This draws a sinuous wave at an upward angle across the screen from 
left to right. Then, when the graphics file fills, it draws the wave 
in the opposite direction. When the left hand edge of the screen is 
reached, it will start again. 



1.3.4 Graphic Modes 

FDIS (TYPE, INT, BLINK, LP) 

Each datum that enters the display file has associated with it a set 
of 4 modes. These modes are established with an FDIS command and 
apply to all subsequent graphics functions until a new FDIS command is 
issued. The original modes of the graphics file are solid line, 
intensity 3, steady display, and non- light pen sensitive. 
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The arguments of FDIS have the following significance: 



TYPE 



-Line Type 
=0 means solid lines 
=1 means longdash lines 
=2 means shortdash lines 
=3 means dotdash lines 



INT 



BLINK 



-Intensity 

A number between 

intensity) 



(lowest intensity) and 7 (highest 



LP 



Example : 



-Blinking or steady display 
=0 means steady 
=1 means blinking 

-Light pen sensitivity 

=0 means non-light pen sensitivite graphics 

=1 means light pen sensitive graphics 



1.1 XE FDIS(3, 1,1,0) ;XE FVEC(0,0,0) 

1.2 XE FDIS(0,7,0,1) ;XE FMOV(l ,50 ,50) 

1.3 XE FVEC (2,-100,0 ) ;XE FVEC (3 ,0,-100) 

1.4 XE FVEC(4, 100,0) ;XE FVEC (5 ,0 ,100) 

This draws a bright, light pen sensitive square whose center moves to 
the point on its circumference hit by the light pen, and a blinking, 
dotdash line from the lower left hand corner of the screen to the 
center of the square. 



1.3.5 LOC Coordinates 

FXCO(LOC) and FYCO (LOC) 

FXCO and FYCO return the X and Y coordinates, respectively, of the LOC 
specified in the argument. If the LOC contains no data or if it 
contains a skip, FXCO and FYCO return zero values. 

Example : 

X FVEC (10, FXCO (10) +100, FYCO (10) +100) 

This extends the vector in LOC 10. 



1.3.6 Light Pen Operation 

When FOCAL-GT senses a light pen hit on graphics specified as light 
pen sensitive, it saves the value of the LOC containing the line, 
point, or character hit and puts the coordinates of the hit into LOC 
0. Since FOCAL-GT allows only vectors and points in LOC , the vector 
or point in LOC takes on the coordinates of the light pen hit. For 
example, an invisible vector in LOC always extends from the lower 
left hand corner of the screen to the location of the last light pen 
hit. The user may take advantage of this property of LOC in several 
ways. 
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For example, FXCO(O) and FYCO(O) can be used to return the coordinates 
of the last light pen hit. Also, LOC can be used to implement 
tracking by drawing a light pen sensitive tracking cross with its 
center starting in LOC 1, and an invisible vector in LOC 0. Whenever 
FOCAL-GT gets a hit on this cross, it will put the coordinates of the 
hit into the invisible vector in LOC causing the center of the cross 
to move to the location of the hit. Thus the cross, once drawn, will 
track the light pen without program control. The user usually inserts 
an absolute point in the LOC following the last LOC used by the 
tracking cross so that any graphics following this point will not 
move. 

The user may connect individual pictures he has created by means of 
the light pen. This is done by inserting a skip in LOC 1 to the start 
of the picture to be connected. If the picture consists entirely of 
light pen sensitive vectors, its origin moves to wherever the light 
pen hits it. When the picture is in position, the user need only 
determine the coordinates of its new origin using FXCO(0) and FYCO(0) 
and insert an absolute point with these coordinates in the LOC 
preceding the origin of the picture. He may then remove the skip from 
LOC 1 and the picture will remain where he left it. 

Example : 

1.1 D 9 

1.2 S LOC=FSET(LOC,0,0) ;S X1=0;S Y1=0 

2.2 ASK n DRAW"D;S X=FXCO(0);S Y=FYCO(0) 

2.3 S LOC=FVEC(LOC,X-Xl,Y-Yl) ;S X1=X;S Y1=Y;G 2.2 
9.05 XE FMOV(0,500,400) 

9.07 S T=40;S R=.7*T;S S=.5*T 

9.1 X FDIS(0,5,0,1) 

9.2 X FVEC(1,R,S) 

9.3 X FVEC(2,-R,-S-T) ;X FVEC (3 ,-R,S+T) 

9.4 X FVEC(4,2*R,-2*S) 

9.5 X FVEC(5,-R,S+T) ;X FVEC (6 ,-R,-S-T) 

9.6 X FVEC(7,2*R,2*S) 

9.7 X FVEC(8,-2*R,0) 

9.8 X FVEC(9,2*R,-2*S) 

9.9 X FVEC(10,-2*R,0) ;X FVEC(11,R,S) 
9.95 S LOC=12 

This displays a tracking cross which can be used to draw lines by 
hitting the RETURN key. The RETURN key draws a line from the previous 
location of the cross to its new location. The cross starts and ends 
at its center; consists of 13 lines, all visible and of considerable 
length; and registers light pen hits in any direction that the light 
pen moves. 

The user may construct other tracking crosses responsive to the needs 
of the individual program. 

Example: 

F I=50,100;XE FCLR(I,0,0) 
This clears LOCS 50 through 100. 
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1.3.7 Light Pen Hits 



FLP(ARG) 



FLP returns the LOC of the data which caused the last light pen hit. 
If ARG=0, FLP waits for the next light pen hit before returning to the 
caller. If ARG does not equal zero, FLP returns immediately. FLP 
allows the light pen to be used to initiate program operations as well 
as to determine where in the graphics file a light pen hit occurred. 
This property can be used, for instance, to implement a menu, using 
the LOC of the letters hit to determine which operations to perform. 

Example : 

1.1 XE FPT(1,0,0);X FM0V(2 ,0 ,500) ;X FDIS (0 ,6 ,0 ,1) 

1.2 X FTXT(3,0U,0P) ;X FMOV(4 ,0 ,-100) 

1.3 X FTXT(5,0D,0O,0W,0N) 

1.4 S X=500;S Y=400 

1.5 X FPT(6,X,Y) 

1.6 I (FLP(0)-4)1.7,1.7,1.8 

1.7 S Y=Y+20;G 1.5 

1.8 S Y=Y-20;G 1.5 

This displays a point near the center of the screen and a menu 
consisting of the two words UP and DOWN. When the light pen hits UP, 
the point moves up; when it hits DOWN, the point moves down. 

When a light pen hit occurs near an edge of the screen on a vector 
that displays partly off the screen, FOCAL-GT may insert erroneous 
coordinates in LOC 0. Since the hardware may not inform FOCAL-GT of 
the light pen hit until the vector has already gone off the screen, 
FOCAL-GT may put the wraparound coordinates of the vector in LOC 0. 
For instance, a vector drawn off the screen to the left may return an 
X-coordinate of 1023 rather than 1 where the hit actually occurred. 
FOCAL-GT never returns coordinates not within the screen's viewing 
area, so a tracking cross never disappears, although it may jump from 
one edge of the screen to the opposite edge. 



1.3.8 Erasures 

FCLR(ARG) 

FCLR clears the entire graphics file, without altering the text file 
or the size of the graphics file. It returns a value equal to the 
ARG+1 though the argument has no effect on its operation. 

The user may clear individual LOCS by inserting length vectors. 
Example : 

X FCLR() 
This clears the graphics file, leaving the text file undisturbed. 
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CHAPTER 2 
FOCAL- RT 

FOCAL- RT, a new FOCAL for use with the GT40 and LPS (Laboratory 
Peripheral System) , extends and modifies FOCAL-GT. The user can 
obtain two separate standard binaries: FOCAL-GT for use with a GT40 
without LPS and FOCAL-RT for use with a GT4 0/LPS combination. 

In addition, the user may obtain the FOCAL-GT/RT source and assemble 
it to produce a variety of nonstandard configurations. Chapter 4 
contains the assembly instructions for FOCAL-GT/RT. 



2.1 LPS FUNCTIONS 

The following three LPS functions allow the user to sample any of the 
8 A/D channels, to start the clock and use it as a timer for FOCAL 
operations, and to put an integer value into the numeric display on 
the face of the LPS. 



2.1.1 FLED(ARG) 

The FLED function loads the integer part of the argument into the 
numeric display on the face of the LPS (called the LEDS) . FOCAL-RT 
only uses the 5 least significant digits of the integer part of the 
argument and returns the value of the remaining digits. 

Example: 

1.1 X FLED(FSAM(0)-2048) ;G 1.1 

This loads the LEDS with the value in channel less 2048, a value 
between -2048 and +2048. 



2.1.2 FTIC(ARG) 

The FTIC function allows the user to set and read the timer, a 16-bit 
register that the LPS clock increments each time it ticks. The timer 
maintains a count of the number of ticks that have occurred since the 
clock started. Its 16 bits can count up to 32767 before it clears to 
zero and continues incrementing. 

Calling FTIC with an argument greater than zero sets the timer to zero 
and starts the clock ticking every ARG/lOOOOth of a second. It 
returns the current value of the timer, which is 0. 

Any error except Error 0.00 stops the clock, if the timer is non-zero 
at the time of the error, thereby leaving the timer at its value at 
the time of the error. Error 0.00 clears the timer to zero. 
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Example : 

1.1 X FTIC(IOOO) 

1.2 T FTIC(O) ;G 1.2 

This continually displays the value of the clock which ticks once 
every 1/10 of a second. 

Example : 

1.1 X FTIC(IOO) 

1.2 X FTIC(-100);T "TIC" , ! ;G 1.2 

This displays "TIC" once a second. 



2.1.3 FSAM(chanl[,num,chan2] ) 

The FSAM function may be used as follows to sample the channel 
specified in the argument and return its value as an integer between 
and 4096. 

Example : 

1.1 X FVEC(l,FSAM(0)/4,FSAM(l)/4) 

1.2 G 1.1 



This continuously draws a vector with X and Y 
by the values in channels and 1. 



coordinates determined 



Optionally, the FSAM function may be used to sample up to 5000 points 
per second and place the values into a 1000-word buffer. It may also 
use Schmitt trigger 1 to initiate sampling. The optional FSAM 
arguments take the following form: 

FSAM(+A[,+B,+C]) 



One Argument : 



For A positive, sample channel A. 

For A negative, return Ath to last sample from the 

buffer. 



Two Arguments : 



Three Arguments : 



A must be positive. 

For B positive, sample B points from channel A. 
For B negative, wait for Schmitt pulse, then 
sample B points from channel A. 

Same as for two arguments except that it allows a 
dual sample from channels A and C. Every time the 
clock ticks, the value from A will enter the 
buffer followed, within 30 us., by the value from 
C. 



To use these optional arguments , the user first starts the clock 
ticking with the FTIC function as described above. The user must 
ensure that the clock does not tick faster than the highest sample 
rate: 2/10000 for single sampling, 3/10000 for dual sampling. FTIC 
sets the clock ticking in intervals determined by its argument over 
10,000 parts of a second. FSAM may then sample all 8 A/D channels, 
two at a time if desired, and use Schmitt trigger 1 to initiate 
sampling. it may also read at random from the LPS input buffer. 
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Example : 

1.1 S A=FSAM(2,100) 

This reads 100 values from channel 2, one for each clock tick, into 
the LPS buffer. A is set equal to the last value. 

Example : 

1.1 S A=FSAM(0,100,2) 

This reads a total of 100 values, two at each clock tick, the first 
from channel and the second from channel 2 with 20 to 30 us. 
between members of the pair. 

NOTE 

Dual sampling can sample up to 6667 
points per second {3333 dual samples per 
second) . 

Example: 

1.1 X FSAM(7,-10) 

This stops the clock, restarts it on A Schmitt pulse, then reads 10 
samples, one on each clock tick. 

Example : 

1.1 S A=FSAM(2,1) 

This sets A equal to the value in channel 1 as soon as the clock 
ticks. 

Example: 

1.1 S A=FSAM(-1) 
This sets A equal to the last sample. 
Example: 

1.1 S A=FSAM(-5) 

This sets A equal to the fourth to last sample. 

If the user wishes to display his samples as points on the screen, he 
may do so by reading their values from the LPS input buffer and 
putting them into the graphics file. 

Example : 

1.1 X FSAM(0,500) 

1.2 S LOC=l 

1.3 F I=1,10,1000;S LOC=FPT(LOC,I ,FSAM(-I) ) 

This displays the first 100 points sampled along the X axis, 
incrementing 10 units per point. 
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CHAPTER 3 
FOCAL-GT/RT CHARACTERISTICS 

The user may create FOCAL programs and execute command lines under 
FOCAL-GT/RT the same as under FOCAL-11. FOCAL-GT/RT prompts with a # 
sign rather than an *. A FOCAL program that contains none of the new 
functions runs exactly the same under FOCAL-GT/RT as under FOCAL-11 
except that I/O is displayed on the screen and only displays on the 
Teletype after an T instruction. The user may execute all graphic 
and LPS functions either within a program or directly as shown in the 
previous examples. Once a graphics program has started, typing CTRL/C 
twice (holding down the CTRL key while typing the C key) stops it, 
clears the display file, and resets the size of the graphics and text 
files to their original values. To stop a graphics program without 
erasing its graphics, hit any two characters other than CTRL/C at some 
point in the program's execution. The program halts with an 18 error, 
leaving its graphics on the screen and the display file unchanged. 
The display can be altered with direct commands or with another 
program. 

An unusual and sometimes useful phenomenon the user may observe when 
overlaying one picture with another that uses the same LOCS is the 
movement of the old picture as the new one is created. This occurs 
because all vectors extend relative to the previous vector in the 
graphics file. Altering some of the vectors that began a picture 
moves the remaining vectors in the picture around the screen. 

Example : 

F J=1,10;F I=1,10;X FVEC(I,10,J) 

This draws a line composed of line segments in LOCS 1 to 100, then 
redraws it at greater slopes causing the line displayed to bend. 

The user may also find that certain figures he has drawn, e.g. , a 
circle composed of line segments, do not seem to close when the figure 
completes. The fact that all vectors display with integer lengths 
whereas the arguments to the vector functions may have non-integer 
parts causes this rounding error. To minimize this error, add .5 to 
all non-integer arguments so that errors cancel. 

Example : 

1.1 X FSKP(1,400) ;X FSET (0 ,800 ,400) ;X FVEC (1 ,-800 ,0) ;S LOC=2 

1.2 F I=.1,.2,12.56;S LOC=FVEC (LOC,10,FSIN (I) *10+. 5) 

This draws a cosine wave consisting of 62 line segments above a 
tangent. The peaks of the cosine wave touch the tangent as they 
should. Neglecting to add the rounding factor, .5, produces a wave 
whose peaks dip below the tangent. 

When text or skip data continually enters the graphics file, the 
display blinks somewhat; when the data has stopped entering the file, 
the display stops blinking and grows brighter. FOCAL-GT/RT must stop 
the display every time it adds a piece of such data to the graphics 
file; this causes the display to blink. 
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3.1 FOCAL-GT/RT AS A TERMINAL 

If the GT40 is connected via an asychronous line of baud rate 300 or 
lower to a host computer, it can communicate with that computer 
displaying all communication on the screen of the GT40, and 
optionally, if the GT40 has a Teletype, on the Teletype. The GT40 can 
be used in the same way as a Teletype to do all Monitor operations 
normally done on the host computer. However, any commands not 
normally handled by a Teletype cannot be used since FOCAL-GT/RT does 
not interpret command characters not normally understood by a 
Teletype. The text display displays up to 40 lines of I/O and then 
clears. 

FOCAL-GT/RT also makes it possible to send FOCAL output, including the 
FOCAL program itself, to the host computer and allows FOCAL to listen 
to input, including a FOCAL program, sent to it from the host 
computer. The user switches between the various modes of operations 
using two control characters which FOCAL-GT/RT traps and one 
additional operate option. 



3.2 FLOW OF DATA 

Figure 3-1 portrays a GT40 system consisting of FOCAL, a keyboard, a 
scope, and a host computer. The arrows indicate the possible flow of 
output from each device. The state of three switches determines each 
direction. Output flows from its origin along the arrows indicated by 
the setting of the switches until it reaches the scope. Typing CTRL/F 
causes the direction of keyboard output to change. Typing CTRL/T 
causes the direction of host output to change. The operate options S, 
for screen, and H, for host, determine the direction of FOCAL output. 

As Figure 3-1 indicates , output from the keyboard can go either to 
FOCAL or to the host computer, depending on the state of the CTRL/F 
switch. Output from the host computer, including its echo of the 
keyboard or FOCAL input, can go either to the host or to the screen 
depending on the state of the CTRL/T switch. Output from FOCAL, 
including its echo of host or keyboard input, can go either to the 
host or to the screen depending on the state of the operate option. 
For example, with the CTRL/F switch pointing to the host and the 
CTRL/T switch pointing to the screen, notice on the diagram that 
keyboard output goes to the host which echoes it to the screen. If 
the CTRL/T switch had pointed to FOCAL, and FOCAL had the S option 
operative, keyboard output would have gone first to the Monitor, then 
to FOCAL, then to the screen. Both the host Monitor and FOCAL would 
process all command lines resulting in an error. Usually two 
prompting characters on a single line, one from FOCAL , the # sign, 
and one from the host Monitor, indicate that this problem is 
occurring. Change the direction of the CTRL/T switch to solve this 
problem. The CTRL/T that discontinues output to the host computer 
echoes an underline character. This character indicates that the 
current direction of the host computer is to the screen and also 
serves to erase any characters that the host computer may have left on 
the current line so that FOCAL will ignore them. 

The operate character H (host) sends FOCAL output to the host 
computer. For example, O H;W A;0 S writes a FOCAL program to the host 
computer, then returns the screen to the output device. 
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Figure 3-1 Flow of Data 
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3.3 SAVING AND RESTORING FOCAL PROGRAMS 

The various switches that control I/O allow the user to use the host 
computer for storage of FOCAL programs. To save a program on the host 
computer's storage device, for example, type CTRL/F to begin 
communications with the host computer. Then create a file, giving it 
the name of the FOCAL program. Begin insertion from the Teletype, 
then type CTRL/F to resume communication with FOCAL. Once in FOCAL, 
use the H option and the WRITE command to write the program to the 
file on the host computer. When FOCAL-GT/RT has finished writing the 
file, type CTRL/F to resume communications with the host computer and 
close the file which now contains the FOCAL program. In the same way, 
a file of FOCAL output can be created on the host computer by 
inserting an H command in the FOCAL program before output commences. 

A FOCAL program can be read from the host computer by instructing the 
host computer to print the program and, before this output begins, 
typing CTRL/T. The output displays on the screen, but FOCAL-GT/RT 
receives this output as though it had come from the keyboard. 

FOCAL may also read data files from the host computer as follows. 
Start the FOCAL program running. When it prints a colon to indicate 
that it wants input, type CTRL/F and instruct the host computer to 
print a file, typing CTRL/T before output begins. If the loop in 
which FOCAL asks for information is fast enough to keep up with the 
rate of output from the host computer, FOCAL will be able to read the 
file. 

NOTE 

When CTRL/F is typed for the first time, 
control transfers to LOADVT which is 
still in core and the system responds 
with: 

>R* 

Type CTRL/C to return to the host 
Monitor. All subsequent CTRL/F' s will 
cause a response of . or #. 

Example : 

The following assumes that a user has created a FOCAL program and has 
a DECsystem-10 as host computer. Characters printed by the system are 
underlined, control characters typed by the user but not echoed on the 
screen appear within angle brackets. Originally, the user is talking 
to FOCAL. 

#<+F><CR> 

.MAKE PROG.FOC<CR> 

*K+F><CR> 

#0 H;W A;0 S<CR> 

C: FOCAL 

1.1 S A=5 

1.2 T A 
#<tF><CR> 
$EX$$ 

.TYPE PROG.FOC 
C: FOCAL 
1.1 S A=5 
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1.2 T A 
,<+F><CR> 

# 

NOTE 

At baud rates higher than 300 on a 
heavily loaded system, TECO may not be 
able to keep up with the input from a 
WRITE ALL statement. This makes saving 
a program which consists of many lines 
impossible using the WRITE ALL 
statement. Under these circumstances, 
the user may save a program a line at a 
time. For example, H;W 1.1;0 S sends 
line 1.1 to TECO. 

This transfers the contents of PROG.FOC to FOCAL and saves a FOCAL 
program in a file called PROG.FOC. 

Example : 

At some later time, the user wishes to restore his program. 

#<+F><CR> 

.TYPE PROG.FOC<+T><CR> 

#C: FOCAL 

#1.1 S A=5 

#1.2 T A 

,<+T>-<-< + F><CR> 

#W A 

C: FOCAL 

1.1 S A=5 

1.2 T A 
# 

For saving and storing FOCAL programs on paper tape, refer to ' the 
FOCAL-11 USER'S MANUAL, Section 3.4.1.1. 



3.4 PROGRAMMED MONITOR COMMANDS 

A FOCAL program can also issue host Monitor commands via the TYPE 
command. If an O H precedes a TYPE commmand, the output from the TYPE 
commmand goes to the host computer. If this output is in the format 
of a host computer Monitor command, the host computer interprets it as 
if it had come from a terminal. However, programming FOCAL to execute 
a series of Monitor commands depends on the ability of the host 
compute to buffer command input since FOCAL outputs these commands as 
soon as it reaches the TYPE commmand. The user may use a clock or a 
long FOR loop to slow down FOCAL* s output but, in any case, if the 
input to the host computer exceeds its ability to buffer input, the 
host computer responds as if the excess input had come from any other 
terminal device. 
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Example: 

1.1 O H;T "MAKE OUTPUT. FOC" ,!," I" 
1.15 F I=1,100;S A=5 

1.2 F I=1,10;T FSAM(0),!;F J=1,100;S A=5 

1.3 T "$EX$$" ;0 S 

This creates a file called OUTPUT. FOC and prints 10 A/D values into 
it, using FOR loops to leave time between each value output. It then 
closes the new file. Note that FOCAL-GT/RT echoes $ when it receives 
an ALTMODE as in line 1.3. 
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CHAPTER 4 
ASSEMBLING, LOADING, AND OPERATING FOCAL-GT/RT 

The user may obtain the FOCAL-GT/RT source from the Software 
Distribution Center. This source is provided on a PDP-10 formatted 
DECtape (DEC-11-GGRSA-A-UA) . The user assembles this source on 
DECsystem-10 using MACDLX, the PDP-11 assembler for the PDP-10. The 
parameters defined in the assembly process determine the nature of the 
binary produced. For example: 

•R MACDLX 
*FOCRT.BIN/I/EQ:GT40:TERM:RT<-FOCGT.002 

This produces the standard binary of FOCAL-RT. 



4.1 ASSEMBLY PROCEDURES 

Assemble FOCAL-GT or FOCAL-RT with MACDLX on the DECsystem-10. Figure 
4-1 depicts the code in the source of FOCAL-GT/RT that defines the 
size of the display file and the parameters that determine the nature 
of the binary produced. The user defines these parameters at assembly 
time. 

Examples: 

FOCAL . BIN/I* FOCGT . 2 
This produces FOCAL-11 which does not make use of the display. 

FOCGT.BIN/I/EQ:GT40-<-FOCGT.002 
This produces an 8K FOCAL-GT with no terminal code. 

FOCGT.BIN/I/EQ:GT40 : TERM: PARAM-<-TTY: ,DSK:FOCGT. 002 

READY 

KSIZE=10000 

DSIZE=1000 

TSIZE=700 

+ Z 

READY 

tz 

This produces a 4K FOCAL-GT with a display file 1000 (octal) words 
long and an inital text portion 700 (octal) words long. 
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ilr 0F GT40 I0T4H FUNCTIONS 



iCoPYRtGHT 1972,1*73 yiGlTAi EQUIPMENT CORPORATION 
IMAYNARDi MASS »3,7&4 

I THE FUNCTIONS In ONtW EnAB l E THE roCAi-tt USER To DRAW om A 
I GT4B', 



ICqnPITIon**. ASSEMBLY pARA M ETERS 

IASSEmBi Jn5 WJTH no PARAMETERS DEFInEO In THE ASSEmBiY STRInGi 
IPROOUCES rOCAL-13, WHICH WILL RUN IN AN X%?99 

IASSEmB L 1'nB WJTH (?T4P DEFIED PR DU?ES An »K F CAi«6T WITH NO 
(LPS FUNCTIONS 

IASSE M B U J N G WITH GT4P A N RT DEFIn" PRODUCES A N 8K FoGA L »RT 
IWJTH a SUFFER 1000 wyNpS LONG 

JAsSEmBi ImG WITH UT40, RT, AnP NflBUFF OEF| N EO PRODUCES An BK FoCAi.GT 
IWJTH LPS FUNCTIONS AND AN FSAH THAT DOES NOT USE A BUFFER 

ITHE USER M AY OEFInE JTAnOARO PARAMETERS In HJ$ ASSEmBiY STRInG 
(BY OEFINJNG 'PARAM' |N THAT STRtNB FOL'LOWCO'bY THE NE& PARAMETERS. 
UN THIS CASE, HE MUST OEF!NE| 

I «S!HE THE SIZE qF CORE In WqpOS 

) OSJZE THE SUE OF THE DISPLAY FJLE IN WQROS 

I TSIZE THE SIfE OF THE TEXT PORTION OF THE DISPLAY FILE 

J IF THE USER DEFINES t?T40, RT, AnD PARA M » HE MUST ALSO OEFInE 
MIN ADDITION TO THE 4 PARAMETERS ABOVE)! 

I LpBSIZ THE SIZE of THE LpS BUFFER (In WqROS) 

IAsSEmBLInG A N Y oF THE ABOVE WIT" 'TERM' DEFINED PRODUCES A VERSION THAT 
I INCLUDES TERMINAL CODE 



,EnA8i E AMA 
.ENABLE ABS 



Figure 4-1 Display File Code 
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(the Following parameters determine the sjze or display file 
irelative to focat buffer area, thf portion of the display 
if1le devoted to text initially, and the typc of focal to produce, 
;The user who defines »parah» in the assembly string must define 
1 also each of the parameters defined below, 



,IF N DF pArAmS I8 k OEriMlTIONS. DEFAULT DEFINITIONS 



KSIZE«200B0 

,IFDF RT 

,IFNDF NOBUFF 

DSIZEM0SJ0 

LPBSI2»1762 

,ENDC 

,IFDF NOBUFF 

DSIZE»5aniD 

LPBSIZ.»0 

,ENDC 

,ENOC 

, JFNOF RT 

OSIHE»530B 

LPBSI2»B 

,ENDC 

TSI2E§3000 

,ENDC 



J5<jR E SIZE (2B008H8K WgROS) 

I IF LPS CODE 

IIP FULL SUPPORT 

ISET DISPLAY FILE SIZE 

U905I WORD IMPUT BUFFER 

J IP NON. BUFFERED SUPPORT, 
IMQRE ROOM FOR DISPLAY FILE 
IN8 8UFFER 



I IF NO LPS SUPPORT, PRODUCE FOCAL»6T 
(WITH LARGE OJPSLAY FILE 
(AND NO SUFFER 

UN ALU PASES PORTJON OF DISPLAY FILE DEVOTED 
ITO TEXT INITIALLY 



,IFDF K« 

KSIZEP100K0 
DSIZEilBBB 

TSiZE«7aa 

LPBSIZ«B 
,ENOC 



i«k defimIntIons {PefinE param *these vAiyes In »ssEmB l y strIn") 

ISORE SIZE " - v. 

IOISPLAY FILE SjZE 
(TEXT FILE SIZE 
ILPS BUFFER (NONE) 



Figure 4-1 (Cont.) Display File Code 
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4.2 LOADING PROCEDURES 

The user may load his FOCAL binary via the paper tape reader or over 
an asynchronous line connected to a host computer on whose storage 
area both the binary of FOCAL and the loader program reside. To load 
from a host computer: 

1. LOAD ADDRESS 166000 AND START. 

This starts the hardware bootstrap which will display I/O on 
the screen and from which the user may perform all Monitor 
commands. To reset the screen when output reaches the screen's 
bottom, hit START again. 

2. START THE LOADER PROGRAM. 

To the DECsystem-10 Monitor, type RU LOADVT. 

3. Give the loader the name of the proper bootstrap (BOOT4.BIN for 
4K; B00T8.BIN for 8K) . (The binary tape supplied requires the 
8K bootstrap. ) 

4. When the prompting character appears again, give the loader the 
name of the FOCAL binary. 

5. Wait until the FOCAL error message 00 appears on the screen. 

Example : 

.RU LOADVT<CR> 
**FOCGT.BIN<CR> 
?00 AT 0.00 

# 

The procedure for loading FOCAL-GT/RT from paper tape requires loading 
the Bootstrap Loader and the Absolute Loader, followed by the 
FOCAL-GT/RT paper tape. For more detailed instructions, refer to 
Chapter 6 of the PDP-11 PAPER TAPE SOFTWARE PROGRAMMING HANDBOOK 
(DEC-11-XPTSA-A-D) . To make more efficient use of core, FOCAL-GT/RT 
uses the core where the loaders resided when it runs. 



4.3 NEW ADDRESSES 

To eliminate the terminal code from FOCAL-GT, enter the address 
INITD-2 in location BOTTOM (1652). 

For the purposes of adding new functions , for both FOCAL-GT and 
FOCAL-RT, consider the address in BOTTOM as the top of core. 



4 . 4 RESTART 

Operation of FOCAL-GT/RT differs from that of FOCAL-11 only in that on 
restart and power-fail, the user must type CTRL/C twice to FOCAL to 
restart the display. In general, if the display disappears for any 
reason, two CTRL/C s sent to FOCAL (not to the host Monitor) will 
bring it up again. 
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4.5 ADDING NEW FUNCTIONS TO FOCAL-GT/RT 

Chapter 6 of the FOCAL- 11 USER'S MANUAL describes the procedure for 
adding an FNEW to FOCAL-11. FOCAL-GT/RT already contains such an FNEW 
called DNEW. DNEW consists of the graphic and LPS functions, the 
display file, and the terminal hook-up code. The user may add 
additional code in the area just below the start of DNEW and 
additional function names in the function list starting where the new 
functions leave off. In other words, he may add an additional 
function to FOCAL-GT/RT in the same way he would extend an FNEW he had 
written himself. 

For both FOCAL-GT and FOCAL-RT, the address in location BOTTOM is the 
highest free address in core. The highest free address in the 
function list is 1012 for FOCAL-RT and 1026 for FOCAL-GT. The user 
who has obtained the source of FOCAL-11 may determine these addresses 
directly from the listing for his particular binary. 

Referring to the FNEW example in Section 6.3.5 of the FOCAL USER'S 
MANUAL, FQUAD may be added to the 8K standard binary of FOCAL-GT/RT by 
altering the example as follows: make its starting address equal to 
the address contained in location BOTTOM-144. Then, in locatxon 
STACKO+2, change '1100-4' to '1012-4' for RT or if 1026-4^ for GT and 
change the absolute address setting '.=1100+2' to '.=1012+2' for RT or 
'.=1026+2' for GT. The user who intends to add an FNEW must, however, 
have a paper tape reader attached to his GT40 or have access to the 
source of FOCAL-GT/RT because the GT40's loading program cannot load 
overlays from the DECsystem-10 (host computer) . 

To add an FNEW to FOCAL-GT/RT and load the new code from the PDP-10, 
the user must delete the .END statement from FOCAL-GT/RT and combine 
its source with the source of his overlay when assembling, then load 
the single new binary produced. 

Example : 

Delete the .END statement from FOCGT.002, then: 

.R MACDLX 

*FOCNEW. BINt-FOCGT. 002 , FNEW. SRC 

This will produce a binary that includes the new functions. An FNEW 
used in this manner need not redefine variables such as FGET already 
defined in the FOCAL-GT/RT source. 
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APPENDIX A 
FUNCTIONS AND SWITCHES 



A. 1 FUNCTIONS 



A. 1.1 Graphic Functions 
FVEC(LOC,X,Y) 
FMOV(LOC,X,Y) 
FPT(LOC(X,Y) 

FSET(LOC,X,Y) 

FTXT(LOC,A,B,C f ...) 

FSKP(LOC[,L2]) 



FDIS ( TYPE , INT , BLINK , LP ) 



Puts vector (X,Y) in LOC. Returns LOC+1. 
Puts invisible vector (X,Y) in LOC. 

(X,Y) in LOC. 



Puts the absolute point 
Returns LOC+1. 



Puts the invisible absolute point 
LOC. Returns LOC+1. 



(X,Y) in 



Adds character of numeric value A,B,C... 
starting in LOC, 4 characters per LOC. 
Returns last LOC used +1. 

For L2 less than end of graphics file, puts a 
skip to L2 in LOC. 

For L2 greater than end of graphics file but 
less than end of display file, increases size 
of graphics file to L2 LOCs , clears the text 
file, and enters a skip to start of text in 
LOC. 

For L2 greater than end of display file, 
increases size of graphics file until text 
file contains one line of text, maximum, 
clears text file, and enters a skip to its 
start in LOC. 

For L2 not included, clears the text file and 
enters a skip to its start in LOC. 



All the above return LOC+1. 

Sets the mode of the next LOC entered in 
graphics file. 



the 



Type 





1 
2 
3 



FXCO(LOC) 



Solid 

Longdash lines 
Shortdash lines 
Dotdash lines 

Intensity (Dimmest) to 7(Brighest) 

Blink (Off) or l(On) 

Light Pen Sensitivity (LP) (Of f ) or l(On) 

Returns X-coordinate of datum in LOC. 
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FYCO(LOC) 
FLP (ARG) 

FCLR(ARG) 



Returns Y-coordinate of datum in LOC. 

For ARG equal to 0, waits for next light pen 

hit and returns LOC hit. 

For ARG not equal to 0, returns LOC last hit. 

Clears graphics file. Returns ARG+1. 



A. 1.2 LPS Functions 

FSAM(CHAN) 

FLED (ARG) 

FTIC (ARG) 



Returns value in A/D channel CHAN. 

Loads LEDS with integer part of ARG, up to 5 

digits. 

Returns value of digits over 5 digits. 

For ARG greater than 0, sets timer to and 

starts clock ticking at ARG/10000 of a 

second. 

Returns value of timer, 0. 

For ARG=0, returns value of timer. 

For ARG less than 0, sets time to the value 
of ARG, returns value when timer reaches 0. 



A. 2 SWITCHES 
CTRL/F 

CTRL/T 

O H 
O S 
O T 



Changes direction of keyboard output, either 
to screen or to host Monitor. 

Changes direction of host output, either to 
FOCAL or to screen. 

Sends FOCAL output to host. 

Sends FOCAL output to screen. 

Echoes FOCAL output on Teletype. 
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APPENDIX B 
DECIMAL-CHARACTER EQUIVALENTS 



Value* 


Character 


Value 


Character 


Value 


Charac 





@ 


43 


+ 


86 


V 


1 (0A) 


A 


44 


r 


87 


w 


2 (0B) 


B 


45 


- 


88 


X 


3 (0C) 


C 


46 


. 


89 


Y 


4 (0D) 


D 


47 


/ 


90 


Z 


5 (0E) 


E 


48 





91 


[ 


6 (0F) 


F 


49 


1 


92 


\ 


7 (0G) 


G 


50 


2 


93 


] 


8 (0H) 


H 


51 


3 


94 


+ 


9 (01) 


I 


52 


4 


95 


■*- 


10 (0J) 


J 


53 


5 


96 


i 


11 (0K) 


K 


54 


6 


97 


a 


12 (0L) 


L 


55 


7 


98 


b 


13 (0M) 


M 


56 


8 


99 


c 


14 (0N) 


N 


57 


9 


100 


d 


15 (00) 





58 


: 


101 


e 


16 (0P) 


P 


59 


7 


102 


f 


17 (0Q) 


Q 


60 


< 


103 


g 


18 (0R) 


R 


61 


= 


104 


h 


19 (0S) 


S 


62 


> 


105 


i 


20 (0T) 


T 


63 


■p 


106 


J 


21 (0U) 


U 


64 


h 


107 


k 


22 (0V) 


V 


65 


A 


108 


1 


23 (0W) 


w 


66 


B 


109 


m 


24 (0X) 


X 


67 


C 


110 


n 


25 (0Y) 


Y 


68 


D 


111 


o 


26 (0Z) 


Z 


69 


E 


112 


P 


27 


[ 


70 


F 


113 


q 


28 


\ 


71 


G 


114 


r 


29 


] 


72 


H 


115 


s 


30 


+ 


73 


I 


116 


t 


31 


-«- 


74 


J 


117 


u 


32 (0BL) 


i — » 


75 


K 


118 


V 


33 


i 


76 


L 


119 


w 


34 


ii 


77 


M 


120 


X 


35 


# 


78 


N 


121 


y 


36 


$ 


79 





122 


z 


37 


% 


80 


P 


123 


{ 


38 


& 


81 


Q 


124 


] 


39 


i 


82 


R 


125 


40 


( 


83 


S 


126 




41 


) 


84 


T 


127 


I 


42 


* 


85 


U 







A A11 values Modulo 128. 
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APPENDIX C 
THE DISPLAY FILE 

The display file is a contiguous area of PDP-11 core consisting of two 
parts: the graphics file and the text file, the boundary between them 
being adjustable. Figure C-l shows the display file. The graphics 
file consists of 3-word cells called LOCS into which instructions that 
the GT40 understands are placed by user functions. The text file 
consists only of characters at two characters per word. The display 
file begins with a display stop instruction followed by a status word 
and an absolute point at (0,0). (See the GT40 USER'S GUIDE for a 
description of GT40 instructions.) The text file starts with a status 
word followed by an absolute point at (0,680) and then a word 
indicating character mode. The display file ends with a display jump 
to the start of the display file where the display stop resides. 

Each time the display stops, FOCAL-GT/RT restarts it at the status 
word that follows the stop. When the display file is clear, each LOC 
in the graphics file consists of three display NOPS while the text 
file consists of null characters. The four vector and point functions 
place a mode word, either vector or absolute point, in word 1 of the 
LOC specified in the ARG list and the X and Y coordinates in words 2 
and 3 respectively. FTXT places a character mode word in word 1 of 
the LOC and two characters each in words 2 and 3. In all these cases, 
the mode word determines the type of graphics in words 2 and 3 as well 
as their mode if specified in FDIS. 

FSKP also places a mode word in word 1 of the LOC as well as a display 
jump in word 2 and a jump address in word 3. In the case of FSKP, the 
mode word determines mode only, not the type of graphics in the LOC. 



C-l 



Skip LOC 



Vector/Point LOC 



Character LOC 



Address 



JUMP 



Mode 



Y coordinate 



X coordinate 



Vector or 
point mode 



Figure C-l The Display File 
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to START 


JUMP 




















Char 4 


Char 3 


Char 2 


Char 1 


Character Mode 



Char 



Char Char 



Char 



Character 



Y = 680 



X = 



ABS. PT. 



STATUS 



LOC 



Y = 



X = 



ABS. PT. 



STATUS 



STOP 



\ text 



) graphics 



J 
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APPENDIX D 
BAUD RATES GREATER THAN 300 

FOCAL-GT/RT can do most I/O at Baud rates up to 2400. It can act as a 
terminal at these rates, and it can output data, as in the WRITE ALL 
commmand, at these rates. However, inputting a program at 2400 Baud 
may cause a buffer overflow, error 18, between lines. For example, if 
the user types: 

.TYPE PROG.FOC 

followed by CTRL/T and a carriage return, an error may occur. 
FOCAL-GT/RT will not receive the entire program. To run FOCAL-GT/RT 
at 2400 Baud, do FOCAL input by allowing additional time between 
output of each line, thus giving FOCAL-GT/RT time to process each line 
before beginning the next one. 



Example ; 



.TECO PROG.FOC 
100<100<L-L>TL>$$ 



NOTE 



In the above command line, the angle 
brackets constitute TECO commands. The 
$'s in the above example are echoed when 
the user types the ALTMODE key. After 
typing ALTMODE, the user types CTRL/T. 

This outputs up to 100 lines of PROG.FOC, leaving time between output 
of each line while TECO executes an instruction that effectively does 
nothing. 
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APPENDIX E 
FOCAL-11 ERROR DIAGNOSTICS 

Code Explanation 

700 manual restart from location or by CTRL/C. (r) 

?01 illegal line number. 

?02 illegal variable or function name. 

703 unmatching parentheses. 

?04 illegal command. 

?05 nonexistent line number. 

?06 nonexistent group or line number in DO. 

?07 illegal format in SET or FOR. 

?08 double or missing operators in expression. 

709 stack overflow or nonexistent device. 

?10 core filled by text or command line too long. (o) 

?11 core filled by variables or no room for variables. (o) 

?12 exponent range greater than E+38. (o) 

?13 disallowed bus address in "FX" . (o) 

?14 division by zero attempted. (r) 

?15 attempt to exponentiate to a negative power or power 
too large. (r) 

?16 too many characters in input data. (r) 

?17 square root of negative number. (r) 

?18 input buffer overflow. 

(o) operational error 
(r) a run-time error 
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APPENDIX F 
FOCAL-11 COMMAND AND FUNCTION SUMMARY 



F.l COMMANDS 



Command 
ASK 



Abb re- Example 
viation of Form 



COMMENT 
CONTINUE 

DO 



ERASE 



FOR 



GO 



A 



C 

c 



D A 



D v 



E A 



E T 



ASK M 

ASK "AGE" ,A 

COMMENT 

DO 4.1 

DO 4 

DO ALL 

DO var 

ERASE 
ERASE 2 
ERASE 2.1 
ERASE ALL 

ERASE TEXT 



Action 

Request input from the current 
input device. 

Output text (AGE) and store input 
as variable A. 

Ignore the remainder of the line. 



Execute line 4.1; return to 
command following DO command. 

Execute all group 4 lines; 
upon completion, return to 
command following DO command 
or when a RETURN is encountered. 

Execute entire indirect text as a 
subroutine. 

Execute the line or group of lines 
defined by the variable (var) . 

Erase the symbol table. 

Erase all group 2 lines. 

Erase line 2.1. 

Erase the entire program and clear 
all variables. 

Erase text only; do not erase 
symbol table. 



FOR I=X,Y,Z; (commands) 
FOR I=X,Z; (commands) 

Where the command (s) is executed at 

each new value of I. 

X=initial value of I. 

Y=value added to I until I is 

greater than Z. Y assumed=l if 

omitted. 



GO 



GO 3.4 



Starts indirect program at lowest 
numbered line number. 

Transfers control to line 3.4. 
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Command 

IF 



Abb re- Example 
viation of Form 



Action 



KILL 



IF(X)L1,L2,L3 

IF(X)Ll f L2; (commands) 

IF(X)Ll; (commands) 

Where X is a defined variable, a 
value, or an expression, followed 
by one to three line numbers. If X 
is less than zero, transfer control 
to the line number Ll; if X is 
equal to zero, transfer control to 
the second line number, L2 . If X 
is greater than zero, transfer 
control to L3. If the line number 
is not specified, proceed to the 
next sequential command. 



KILL 



MODIFY 


M 


MODIFY 1.15 


OPERATE 








T 


OPERATE T 




K 


OPERATE K 




P 


OPERATE P 




OR 


OPERATE R 




RP 


OPERATE RP 




O TK 


OPERATE TK 




L 


OPERATE L 


QUIT 


Q 


QUIT 


RETURN 


R 


RETURN 


SET 


S 


SET A=5/B*C 



TYPE 



TYPE A+B-C 



Stop all I/O and reset I/O devices. 
Error code ?09 is printed. 

Enable editing of line 1.15. 

Selects the input and/or output 
device for such commands as TYPE 
and ASK. 

Select Teletype printer. 

Select Teletype keyboard for input. 

Select high-speed paper tape 
punch for output. 

Select high-speed paper tape reader 
for input. 

Select both high-speed reader and 
punch for I/O. 

Select both Teletype keyboard and 
printer for I/O. 

Select line printer for output. 

Return control to the user (command 
mode) . 

Terminate DO subroutines, returning 
to the original sequence. 

Perform arithmetic assignment. The 
variable on the left side of "=" is 
set equal to the value of the 
expression on the right. 

Evaluate expression and type "=" 
followed by result in current 
output format . 
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Command 



WRITE 



XECUTE 



? (TRACE) 



Abb re- Example 
viation of Form 



TYPE A-B,C/E 



Action 

Compute each expression and type 
the resultant values. 



TYPE "TEXT STRING"" 

Type text. May be followed by J to 
generate carriage return/line feed, 
or # to generate carriage return. 



W 
W A 



WRITE 
WRITE ALL 
WRITE 1 
WRITE 1.1 



Type out 
program. 



the 



entire indirect 



Type out all group 1 lines. 
Type out line 1.1. 



XECUTE FSBR(5,ARG) 

Call functions without need for a 
dummy SET statement. 



GO? 



Starts at lowest numbered line and 
traces entire indirect program 
until another ? or an error is 
encountered, or until completion of 
program. 
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F.2 FUNCTIONS 



Function 
FABS 

FADC 
FCHR 
FCLK 

FCOS 

FITR 

FRAN 

FSBR 

FSGN 

FSIN 

FSQT 
FX 



Form 

FABS (expression) 

FADC (gain, channel) 

FCHR (arg) 

FCLK ( ) 

FCOS (angle) 

FITR (expression) 

FRAN ( ) 

FRAN (1) 

FSBR (group, arg) 

FSGN (expression) 

FSIN (angle) 

FSQT (expression) 



Act ion 

Returns absolute (positive value of 
expression. 

Provides access to A/D channels. 

Accepts and/or prints ASCII codes. 

Returns the value of the time 
elapsed. 

Calculates the cosine of a 
specified angle in radians. 

Provides the integer part of a 
number. 

Generates a random value between -1 
and 1. 

Calls program group specified as a 
subroutine. 

Returns -1 if expression <0, if 
expression =0, 1 if expression >0. 



Calculates the sine of 
specified angle in radians. 



the 



Computes square root of expression. 



FX (func, UNIBUS-address, data) 

Controls additional device options 
or nonstandard peripherals or 
references to core storage. 
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APPENDIX G 
FOCAL-GT SYMBOL TABLE 



iMAi"', -<AfU| X 6?2<6?2>-l 3o , -App-7J 13l4? pA r E 66-3 
FCCGT.itf? " <;Y»<B n L TABLE 

ABSFF 206556 

AOnCHP 755114 

AGO IV)*7? 

AUG?" 206^2? 

ALU = 000005 

ASCII 053427 

ATLIST s 001344 

be 20161* 

BH *%ZVS,?l? 

BUFFUL 002?0? 

CHAR »%Z0H004 

CLCU Z-jGgifl 

CLOSE » ?22626 

COMLST « 00l?5« 

CRLF = 205*l<5 

DEBG 001611" 

DECOV 307764 

OIFL 006600 

OIVFF 00656* 

DO 004066 

DOG"Pl 204124 

DSIHE = 001625 

DXIT 007540 

EDlTlT 054714 

EMOIR 00567? 

EMT * 007fi0<" 

ENDFLG 024670 

EPAR 32446c 

ERASF.T * 104640 

ERROR « 17440!" 

ERTX 30405'* 

ETERH 004374 

EVAL 00452? 

F «%0000IS;< 

FCOS 01042a 

FERRO 00673? 

FIG03 S?B7664 

FINON 002=574 

FINFIN 004?66 

FLISTi 001336 

FLOUT 00745m 

FLTX 075624 

FOGOl 00704? 

FOR 20422? 

FPGET * 00700? 

FPNO" = 007070 

FPRNT 007.^56 

FPURE 00552? 

FROM * 000003 

FiER « 007077 

GETARG 084674 

GETLM « 104622 

GGROUP 002560 

GRALL 023320 



AC 


= %0'H)001 


ADOFF 


ti?6230 


AH 


= »Uin/l004 


ALIG'IA 


006270 


ALTAKA 


006324 


ASK 


0P5244 


AXIN 


001642 


9E0IN 


- 00H00 


«L 


= K0' , HPI03 


BUFR 


0("l644 


CHIN 


2 7 1 


CLKADR 


= 000134 


CLRLOP 


0?4426 


COPYLN 


= 1P4630 


DBOT 


- 033016 


HECONV 


00770? 


DELETE 


= ;i0<)004 


OJGTSA 


002654 


0IV2ER 


036642 


DOCOMT 


fit<4 2 04 


0ORRP2 


V504120 


nsTP 


= 173400 


E 


*%00000? 


EFUN 


004614 


EMIMF 


005704 


FMTHR 


0?i5736 


FNIT2 


0913070 


EPAR? 


0;'45i0 


ERASEV 


= 1*4636 


FRRORC 


003502 


ERV 


0*3764 


ETERMN 


004566 


EVALU 


= 1''4660 


FCOOE 


= 0.-17200 


FC0S2 


010466 


FIGOE 


007654 


FIG04 


007674 


FINOO 


00262? 


FISW 


001626 


FLIST2 


001330 


FLTDO 


005556 


FLTHER 


003530 


FOGOg 


0«707? 


FPABS 


= 007073 


FPINT 


= 007071 


FPPOW 


= 007050 


FPRNTP 


007376 


FPi 


034332 


FSIN 


010416 


call 


0"2554 


GETC 


= 1*4614 


GETLNX 


002454 


GOFOC 


0?311? 


GROOVY 


= 104650 



ADCS 


= 176770 


AOlN 


= 170400 


AL 


=%0«e 105 


ALlG K| B 


026156 


AKGnXT 


074/.76 


AS^aCE 


025J40 


AXOuT 


«%0!!0(!!03 


PELL 


* 0Zi?S07 


ROTjOM 


■ m.tfi% 


ccflg 


021601 


CHlNX 


022756 


CL"<IN 


■ 17*404 


COCQ 


014*10 


COPYLX 


0146S40 


DC H R 


= 170^00 


QECON1 


0^7722 


OETN 


010J-06 


OIGTST 


s I;l4f44 


OjMp 


■ lA0f0 e 


DOER 


08492* 


OQXjT 


anjxz 


hu^aSc 


033454 


ECHQLS 


= 021^50 


EFUN3 


084<-56 


EMlND 


025726 


EMTq 


025716 


ENUm 


03 4*74 


EPUrF 


024436 


ERG 


024^10 


FRR 2 


02l752 


ERVc 


024^34 


FTERMj^ 


0?4?44 


FVAlUX 


084<'64 


FCOnT 


024306 


FC0S4 


010^26 


FIGOI. 


027566 


FINcR 


0M*S4 


FINQX 


002566 


flarg 


02l«>l2 


FLOAT 


054340 


FlTdOI 


025=44 


FNAqOR 


0?6j46 


F0G03 


027U0 


FPA 


s 027^10 


FPMUL 


= 027840 


FpPuT 


= 027C60 


FpSQN 


= 027*72 
053576 


FR6 


FSIZE 


* 022^54 


GALLl 


022^22 


GETCH 


" 124614 


GETvAR 


024704 


GONE 


022,46 


GROvX 


022^72 



ADDS 


s 176772 


AFIX 


005344 


ALG2A 


006506 


ALIST 


= 001433 


ARO 


005330 


ATAKE 


005304 


aoivx 


006476 


PELOW 


024262 


PUFBEG 


= 011330 


CFRS 


001654 


C1MT 


010254 


CLKT 


010?74 


COMBUF 


= 001461 


CR 


- 000019 


DDSIZE 


= 012576 


OECONj 


010002 


ifile 


025172 


njPECT 


s 000000 


DNOP 


- 164000 


no6R 


004106 


OPT 


= 114000 


nvEc 


= 110000 


ECOLOG 


003252 


elpaR 


004504 


FMREL 


005744 


FNAB 


= 003124 


FNUM2 


004604 


FRASE 


003744 


ERL 


004002 


ERT 


003770 


ERVX 


005100 


FTERMg 


004406 


EVAL.X 


= 104660 


FCONT2 


004312 


FEMT 


005472 


FIB02 


007636 


FINDLN 


= 104624 


FJNERR 


004252 


FLIMIT 


004300 


FLOSGN 


007034 


FLTONE 


010560 


FNTA9L 


= 001166 


FOG04 


007124 


FPOlV 


= 007030 


FPNEG 


= 007074 


FPRINT 


= 007076 


FPSUP 


: 007020 


FREAO 


= 007075 


FT«Y 


007434 


GENO 


= 024144 


fiETF 


006114 


GETX 


003232 


GOTO 


003436 


GR"VZ 


002650 
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.MAIN, macolx 6?2<622>-l 3P-APR-73 1314? PAGE 66-4 
FOCCT.00? SYMBOL TABLE 

GSERCH ee4 7 3p GSIZt i 0{l2004 GS^lP 085"60 GSa 004764 

GSi 084776 GTAKE 0A5170 GTEsT 025<6a GTESTN 002562 

GTESTW 08251? GTPC = 172000 r,T»y 085V34 GTRY2 005144 

GTSTAT « 17200? GTX • 172004 GTY = l?2"0« GT40 = 000000 

HIBITS 02466P HORD 0^1620 IF 083*74 IGNOR 0«211* 

IGNORE 023l52 IMMEO = 0C0005 INAqDR 085*62 INCH = ie4612 

INDEV 02163? INFILE 0?3670 iNlT 0?1^3e INITO 02316* 

IN1T2 0e3*7? INLIST * 001366 INPT" 0j4*72 INPuTN 002204 

INTF 086337 1 INTG 0516340 INTO * 080~03 INTX 006362 

INTY 086366 INTZ 036356 IN« B?3:<1< INV0 024562 

IOFIX 010J04 IOGO = 01?362 IOt 1ST ■ 0l8-<52 IOPATC = 010400 

100 010334 IPTR s 00tf001 jmS a 183/14 jU»T0 023456 

K 223^16 KIN 0(11636 K]N T 01011,0 KINyl 010132 

KINT2 01013* KINT3 010136 K]N T 4 0i?,42 KJTH 010074 

KKSIHE » 8J777F KSIZF = 020000 LASTL 0?5<06 LEAST 023634 

LEDOUT i 17040? LF * 00001? LFCHAR ? 5<>64 LFS 024674 

LINCNT 08163P LlNENO 0C11624 LJ^ERR 082?14 USTGO = 00140* 

LIST3 = 081456 LIST6 = 0*1453 LQC aX0g0?00 LOCGET 024204 

LOCGO 024t7* LOCSFT 024164 LOC0 0?5?02 LORD 081622 

lOSZ* 083422 LOSE1 003426 L0SE2 083"l4 LOST 083370 

LPAQR « 080324 LP9SIZ «= 00U000 LPInT 034«S2* LPLOC 02465* 

LPS = 177514 LPSSIZ » 080000 LSPR 081*02 LTHERO 007414 

MAKSUR 02344* ^DPe 0?6434 MODE 0?4*62 MODIFY 003552 

MORNOP 024156 MoRTXT 023370 MULFF 026426 MULZ 006166 

NALPWA « 020020! NEGFF 0065*2 NEGx 08*470 NEWLOC 024300 

N08L! U2375? NOEKO 0?3106 N()Lp 0*3770 NOLPCO 024614 

NOLPS 023204 NQP 0P6000 NOPLfP 0J4150 NORESP 02314* 

NORF 02603* NORMO 006072 NORM? 086«72 N0RM.2 00604* 

NORX 086?04 NOS 010070 NOS£MO 0j4^74 NOSHOW 0J4734 

NOTBAK 023612 MOTEXT 023606 NQTF 033-44 NOTFUL 025144 

NOTOUT 32365!! NOTT 023066 NOTyET 033*32 N018 024476 

NUMF = 080*54 ONE * 0A0200 ONPJC 0J4A10 OPADOR 00612* 

OPEN » 0J464A OPERP 0*4572 CPNEXT 084^36 OUT 003002 

OUTCW » 18461* OUTCO 034056 OgTDEV 0«i*34 OUTW 002764 

OUTX 083064 OUTY 0*3042 OUTZ 083 r 'l2 P =%080000 

PACKC « ie46l« PACKX 003I36 PARTSA 085?06 PARTST = 104646 

PBAR 28317* PC sX0*0007 PCF 081604 PCI 003524 

PC2 083504 PERR 004672 PLUGCO 033344 PoPj = 000207 

POSCO 0343fca POSOUT 0?4050 POWOO 026702 PQWF 006650 

POWFt 086644 POWS 0!?667C PRS = i77^54 PRESET = i70406 

PRINT = l?4400 PRINTA 0*2316 PRInTC = 174*04 PRINT2 = 104642 

PRIN2A 08262* PRNTF 0H7012 PRNTLN * 174*26 PRNTP 00750* 

PRNTS 087474 PRNTl 307532 °RNT2 087^22 PROC 083454 

PROCES Z2345? PROGIO C10336 PRS s 177*50 PSCAN 003444 

PTEN 087.164 PTR =X0Plf002 PyTcO 0?4?64 PUTF 085630 

PUTTXT ZJ340? PwRDWN 0i»5752 PjHEGS 0«6t'20 pwRQN 0B6034 

PWRUP 38600? "£ADC = 114606 RE*OF 087*>42 REL - 08000* 

RESETO 024"504 RETLOC 0?4n0 RETNEW 0j4^l2 RETNOW 024076 

RETURN ZeS'SlA ROOTGO 01^244 RT^AR = 020211 RUBIT 083200 

RUBX 323?lf RUBX2 0S13214 R5 =U080^05 SCHA B 083572 

SCONL 083"566 SCONT 06"3564 <;e h R 083624 SET = 004222 

SFINH 28361? SFOUMO 0^3620 SGNF 086532 SGNl 08653* 

SIGN 286734 SIGND ^6460 SILENT 3 5 f ' 2 6 SKPlPR = 184652 

SKPNOfi s 1^4<i54 ^KPNOX K 12372 SO*TH 022406 SQRTC i 184602 
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,MAIN, "ArOLX 6?2<6?2>-t 3P | -*P"-73 13142 
FOCGT.flg? SY^bOL TABLE 



SQRTD 


Z 7 2 4 4 -, 


SP 


■ *07Ks50a 


SPNXT 


223124 


SRNLST 


I 2 P 1 4 C '" 


STARTV 


ZC1646 


STLH 


203*2* 


STPFLG 


i"4*64 


SUBFF 


20622? 


TASKt 


Z'0541^ 


TQUMP 


■310564 


TDUMP4 


210*56 


TE^IM 


= 175*1™ 


TERMS 


« 30141? 


TESTIS 


023^4 


ThROU G 


s aetip.?4 


TLIST 


= e»i44i 


TOMOST 


02315* 


TOS 


077324 


TPS 


* 177S64 


TSTERR 


0J447? 


TXTDUn 


a?5t56 


TYPE 


005224 


WAYO'JT 


323654 


WRED 


00373™ 


WRITE2 


3C3*54 


XCHARG 


01077? 


XCLR 


024i30 


XDTHIS 


00336? 


XEM 


2ll?l" 


XEX 


0J1134 


XEX3 


&11?2« 


XITR 


Z«640A 


XMOV 


?23?54 


XPTR 


= zhaiq? 


XSGN 


e?640? 


XTXT 


^23364 


H 


* 0J07?4 


E RRORS n E T E f;T F 



SORTJ 


= 1 ■ <460pi 


SpECIA 


= 0P1445 


SQUEND 


flltf25? 


STACK 


= 11M?H00 


STARTX 


»1'»2«34 


STOP 


0*l7fc4 


STPINT 


??4634 


SWITCH 


= rt'."163l 


TCLEAR 


024362 


tdumpi 


iM«j57H 


T£MP 


s*0*«<00fl 


TENINT 


0^3116 


TERS1Z 


= fofltil&P 


TEX 


Mg366 


TjNTR 


035430 


TOF 


t'(»7260 


TOOBI-C 


0?4242 


TOT 


0*7276 


TQUOT 


ni«»5442 


TSTTXT 


094676 


TXTHAN 


^ ? &0OP! 


UTX 


PJI3220 


MGO 


0(13742 


«RIG 


0*3724 


UTESTG 


H 513712 


XCHMn 


H10756 


XDELET 


CC3272 


XD3 


003276 


XER 


011316 


XEXIT 


("11302 


XEX4 


1*11240 


XI 33 


" 1^022 


XOUT 


^lk5052 


XRAN 


?l4704 


XSKP 


023514 


XVEC 


0?3244 


ZEROOM 


0'*6370 



PAGt 66*5 




SOUND 


a?2424 


SPNqR 


= 1?4a34 


SQX 


i p - 5 B 


ST*CKO 


021706 


STATUS 


= 177?76 


STOPIT 


0j4*50 


STHJNG 


s 020C30 


TASK 


a iMf56 


tc«lf 


025404 


TDUMP2 


010612 


TEN 


027102 


T£NOUT 


s 175614 


TESTC 


* 174*20 


TEXT 


011772 


TjUmPS 


0J4144 


TO^OCL 


073<57 


TOP 


001*50 


TPR 


003'3« 


TRApH 


0*171* 


TTSI?E 


= H?6"00 


TXTjMp 


0j3*42 


VE«R 


024670 


WHIPV 


024770 


WRITE 


023<»46 


XABS 


006-«76 


XC^R 


010760 


XDIS 


0J3-00 


XECuTE 


0?3"44 


X£RR 


01l«26 


XE*2 


011,52 
0iB->72 


XFCUK 


X13 3 X 


0{? '-4 4 


XPHNTL 


0?3,00 


XRO|_ 


0^0 726 


XSQT 


010,54 


XXCQ 


0j4 -00 


1 


= 0J3160 



SOX 


002420 


SPNO R X 


00312* 


SRETN 


00222* 


START : 


104632 


STILON 


024170 


stpaor = 


000320 


SU"END = 


02467* 


TASKX 


00541* 


TCRLF2 


005464 


T0UMP3 


010600 


TENAQR = 


000300 


TERM = 


000000 


TESTX 


002334 


THISLN 


001606 


TKS 


177560 


TOS 


00724* 


TOR 


007310 


TPRl 


003540 


TSIZE = 


001000 


TXTOIS 


024720 


TXTPTR 


024666 


VjS 


023304 


WH80PS 


001640 


WRtTFL 


003670 


XAflC 


011070 


XCHRl 


011004 


XDOX 


00333* 


XEU 


011322 


XET 


011250 


XEX2A 


01121* 


XFSBR 


01102* 


XUP 


02406* 


XPT 


0232*4 


XSET 


023274 


XTSTUP 


00263* 


XYCO 


024004 
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ABAD 225376 ab s FF 006556 AC 3 X000I<'01 A Qr5 , 17677? 

AUDb = 176772 ADDCHk 027724 AOOF F 0062.50 AD! N « 170*00 

AF1X 005344 AGO 005372 AH *X0000I94 AL 1X000005 

ALGiA 0H6506 ALGiJH 006522 ALIGNA 006270 ALIG^'B 006256 

ALIST = 001433 ALL * 0IH0C01 ALTAKA 1006324 ARGNXT 004476 

ARO 005330 ASCII 026230 ASK 0052*4 ASPACE 00534C 

ATAKE 005304 ATLIST • 001344 AXIN 001642 AXOUT 3X000003 

BUJVX 0P6476 BE 001616 BEGIN s 001100 PELL • 000007 

BE'LOW 027072 BH *X000002 BL *X000003 nOTTPM 001652 

BUFBEG » 011330 BUFF'UL 002202 BUFR 001644 CCFLG 201601 

CFRb 001654 CMAK s%000004 CHIN 002710 tHJNX 002756 

CIN1 010256 CLCU 010210 CLKADR « 000134 TLKJM 5 170404 

CLKIMT 025570 CLKLOP 025552 CL*T 010274 fLOSF « 022626 

CLRLOP 027236 COCO 026620 COMBUF * 001461 fQMLST a 00126? 

COPYLN « 104630 COPYLX 0134040 CR » 000015 rRLF * 005013 

DBOT i 021174 OCHK i 100000 DOSIZE = 007774 "ERG 001610 

DECONV 007702 OECONl 007722 OEC0N2 14 10 dig 2 PECOY 007764 

DELETE = 005JH04 DETN 010006 OFILE 027774 DIFL 006600 

DIGTSA 002654 DIGTST » 104644 OJRECT * 000000 nlVFF 006966 

DIVHER 206642 DJMP = 160000 HNOP a 164000 HO 004066 

UOCONT 004204 O0EH 004220 OOGR 004106 ^OGRPl 004124 

D0GRP2 004120 00XJT 004210 OPT = 114000 HSIeT « 001252 

DSTP * 173400 OTIME 025604 OUNAO 025356 DUNASC 026264 

DVEC « 110000 DX1T 007540 E =X000002 FCHQLS « 001450 

ECOLOG 0A3252 ED I TIT 027524 EFUN 00463,4 FFUN3 004656 

E|,PAR 004504 EMOIR 005672 EMJME 005704 FMINP 005726 

EMREL 005744 FHT s 007000 EMTHR 005736 FMTO 005716 

ENAB = 003124 FNDFLG 027500 ENJT2 003t"70 FNUM 004*74 

ENUM2 004604 FPAK 004460 EPAR2 0045^0 FPUHE 004436 

ERASE 003744 ERASET = 104640 ERASEV = 104636 FRG 004010 

ERL 004002 ERROR * 104400 ERRORC 003502 FRR2 0B1752 

ERT 003770 ERTX 004050 ERV 003764 FRVC 004034 

ERVX 005100 ETERM 004374 ETERMN 004566 FTERM1 004944 

ETERM2 004406 EVAL 004520 EV'ALU « J04660 FVALUX 004664 

EVAL.X « 104660 F «%000003 FCODE « 007200 FCONT 004306 

FCONT2 004312 FCOS 010426 FCOSZ 010466 FCOS4 010926 

FEMT 005472 FERRO 006732 FIGOE 007654 FJGOl 007966 

FI502 007636 FJG03 007664 FIG04 007674 FJNCR 004294 

FJNQLN « 104624 F1NQN 002574 FJNQO 002622 PINDX 002966 

FJNERH 004252 FINF1N 004266 FJSW 001626 FL»RG 00161,2 

FUlhlT 004300 FLJSU 001336 FLIST2 001330 FLOAT 027150 

FL.QSGN 007034 FLOUT. 007450 FLTDO 005556 FLTUOl 005944 

FLTONE 010560 FLTX" 005624 FLTZER 003530 FNAODR 006146 

FNTABL ■ 001166 FOGOl 007042 F0GO2 007072 F0G03 007110 

FQG04 007124 FOR 004222 FPABS * 007073 FPAOO ■ 007010 

FPDJV * 007030 FPGfcT = 007000 FPINT * 007071 FPMgL ■ 007040 

FPNEG * 007074 FPNQH z 007070 FPPQW * 007050 FPPIJT s 007060 

FPRJNT ■ 007076 FPRNT 007356 FPRNTP 00737'6 FPSGV « 007072 

FPSUB" » 007020 FPUHE 005522 FP1 027142 FP10 025444 

FP6 026406 FREAU * 007075 FROM « 000?03 ("SIN 010416 

FSJ2E: » 006600 FTRY 007434 FEER s 007077 GALL 002954 

GALL1 002522 GENO « 026754 GETARG 004674 ^ETC « 104614 

GETCH » 104614 GETF 006114 GETLN * 104622 (SET1.NX 002434 

GETVAR 004704 GETX 003232 GGROUP 002560 GOFOC 025704 
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GONE 


202146 


GOTO 


003436 


GRaLL 


026130 


r,ROQVY 


, 104650 


GRQVX 


002672 


GROVi! 


002650 


GSERCH 


004730 


GSliE 


* 002014 


GSWJP 


005060 


GS0 


' 004764 


GS1 


004776 


GTAKF 


005J.70 


GTEST 


0051651 


GTESTN 


002562 


GTESTW 


0029J.2 


gtpc 


* 172000 


GTRY 


005134 


GTRY2 


005144 


GTSTAT 


= 172P02 


RTX 


• 172004 


GTY 


« 172006 


GT40 


> 000000 


HJB1TS 


0274/0 


WORD 


001620 


IF 


003374 


IGNOR 


002114 


IGNORE 


025744 


1MHEH 


1 000005 


INADDH 


005662 


INCH 


« 104612 


INOEV 


001632 


INFJLE 


026900 


INIT 


011330 


JN1T0 


025760 


IN1T2 


003072 


TNLIST 


* 001366 


INPTR 


027502 


INPUTN 


002204 


INTF 


006330 


fNTG 


006340 


INTO 


■ 000003 


INTX" 


006362 


INTY 


006366 


TNTii 


006356 


INV 


026124 


INV0 


027372 


10F1X 


010304 


tosu 


« 010362 


IOLIST 


« 010352 


IOPATC 


« 01,0400 


100 


010334 


TPTR 


■ 000001 


JMS 


« 103414 


JUSJ0 


026266 


K 


02565,0 


KJN 


001936 


KJNT 


010110 


KJNT1 


010132 


KJNT2 


010136 


KJNT3 


010136 


KJNT4 


010142 


KJTH 


010074 


KKSJ2E 


= 03777Z 


KS12E 


* 020000 


LASTU 


027716 


LEAST 


026444 


LEOOUT 


= 170402 


LF 


1 000012 


LfCHAR 


027674 


LFS 


027504 


LINCNT 


001630 


LJNENO 


001624 


IINERR 


002314 


LISTGO 


z 001406 


LIST3 


s 001496 


HSU 


« 001453 


UOC 


•X000000 


LOCGE.T 


027014 


LOCGO 


027006 


I.OCSET 


026774 


LOCE9 


030004 


LORB 


001622 


L0SE3 


003422 


L0SE1 


003426 


LQSE2 


003414 


LOST 


003370 


LPAOR 


« 000324 


LPPSIH 


« 001762 


LPJNT 


027336 


LPLOC 


027466 


LPREG 


025402 


LPS 


a 17751,4 


LPSBUF 


» 021174 


LPSSIZ 


= 004414 


LSPR 


001602 


LT2ER0 


007414 


MAKSUH 


026250 


MQP0 


006434 


mode 


027472 


modify 


003952 


HQRNOP 


026766 


MORTXT 


026200 


MULFF 


006426 


MUL* 


006166 


NALPHA 


* 000020 


NgGFF 


006562 


NEGNUM 


025426 


k 'EGX 


006470 


NEWLOC 


027010 


NQAD 


026312 


NOAROV 


025602 


NORLI 


026962 


NQEKO 


025700 


NOLP 


026600 


NQI.PCO 


027424 


NOIPS 


026014 
006036 


NOP 


006000 


NQPLPP 


026760 


NQRESP 


0257*0 


HQRF 


NORMD 


006072 


NQRM2 


006172 


N0RM2 


006046 


»!0»X 


006204 


NOS 


010070 


NOSEND 


027604 


NQSET 


025544 


NOSH 


025242 


NQSHOW 


027544 


NDTBAK 


026422 


NOTEXT 


02643,6 


NQTF 


02963$ 


NOTFUL 


027754 


NOTQUT 


026460 


NOTT 


025660 


NOTYET 


026242 


NOIB 


027306 


NIJMF 


s 000070 


NIJMLOP 


025436 


ONE 


3 000Z0P 


ONPJC 


027420 


OPAOUR 


006126 


OPEN 


= 024646 


nPER" 


004972 


OPNEXT 


004536 


OUT 


003002 


OUTCM 


■ 104610 


nuTcn 


026666 


oyroEV 


001634 


oyTw 


002764 


OUTX 


003064 


OUTY 


003042 


oyT2 


003012 


p 


•X000000 


PACKC 


* 104616 


PACKX 


003136 


PARTSA 


005206 


PARTST 


* 104646 


P8AR 


003176 


PC 


•X000007 


per 


001604 


PCI 


003524 


PC2 


003504 


PERR 


004672 


PUUCCP 


026154 


POPJ 


= 000207 


POSCO 


027110 


POSQUT 


026660 


pgwoo 


006700 


POWF 


006650 


P0WF1 


006644 


POWS 


006670 


PPS 


» 177554 


PRESET 


a 170406 


PRINT 


s 3,04400 


PRtNTA 


00231$ 


PRJNTC 


* 104604 


PRINT2 


• 104642 


PR1N2A 


002626 


PRNJF 


007012 


PRNTIN 


* 104626 


PRNTP 


007506 


PRNTS 


007474 


PRNT1 


007932 


PRNT2 


007522 


PROC 


003454 


PROCES 


003492 


"ROGIO 


010336 


PRS 


* 177550 


PSCAN 


003444 


PTEN 


007064 


PTP 


x%000002 


pyrco 


077P74 


PUTF 


005630 


PUTTXT 


026212 


pypowN 


005752 


PWREGS 


006020 


PrtRUN 


006034 


PWHUP 


006002 


PEAOC 


* 104606 


READF 


007542 


REL 


* 000006 


WESETD 


0273^,4 


"ETUAT 


026366 


RETUOC 


026720 


RETNtW 


027122 


HETNOW 


026706 


"ETURN 


003916 


ROOTGO 


010244 


RT 


s 000000 


RTPAR 


s 000211 


RUBJT 


003200 


Huex 


003210 


RUBX2 


003214 


«5 


s%000Ci05 


^AML^P 


025304 
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schaR 


003572 


SET = 


004222 


SGN1 


006536 


SIZQK 


025254 


SOPTB 


002406 


SOUND 


002424 


SPNOR ■ 


104634 


SQX 


010250 


STACKO 


001706 


STATUS « 


177776 


STQPIT 


027460 


STRING ■ 


000030 


TASK « 


104656 


ffRUF 


005404 


TQUMP2 


010612 


TEN 


007102 


TENOUT ■ 


175614 


TESTC * 


104620 


TEXT 


031772 


f JUMPS 


026754 


TOFOCl, 


025751 


TOP 


001650 


TPR 


003534 


TRAPH 


001714 


TtSIZE * 


006000 


TXTJMP 


026452 


VERR 


004670 


WHJPV 


004770 


WRITE 


003646 


XABS 


006376 


XCHR 


010760 


xpjs 


026510 


XECUTE 


003544 


XERR 


011326 


XEXZ 


011152 


xrci,K 


010272 


XJ33X 


010044 


XOUT 


010052 


XRAN 


010704 


XSGN 


006402 


XTSTUP 


002636 


XYCO 


026614 
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ABIE 








ScONL 


003566 


SCONT 


003564 


SFInD 


003610 


SFoUND 


003620 


SIGN 


006734 


SJGNO 


006460 


SKPIPR ■ 


104652 


SKPNON 


a 1PI46&4 


SQRTC * 


104602 


SQRTD 


002440 


sox 


002420 


SP 


SX000006 


SPNQKX 


003126 


SPNXT 


003124 


SRETN 


002226 


SRNUST 


* 001400 


START « 


104632 


STARTV 


001646 


STJUON 


0Z7000 


ST^IN 


003626 


STPAOR * 


000320 


STPFLG 


027474 


SU9ENU • 


027506 


SUBFF 


006222 


TASKX 


005412 


TASK4 


005410 


TCRI.F2 


005464 


TDUMP 


010564 


TQUMP3 


010600 


TDUMP4 


012656 


TENADR ' 


000300 


TENIN 


s 1756^0 


TERM = 


000000 


TERMS 


s 0014J,2 


TESTX 


002334 


TEST10 


025666 


THISUN 


001606 


THROUG 


■ 000004 


T«S » 


177560 


TUIST 


« 001441 


TOG 


007246 


TOHOST 


025790 


TOR 


007310 


TOS 


007324 


TPR1 


003540 


TPS 


= 177564 


TSUE * 


001000 


TSTE«R 


027302 


TXTOIS 


027530 


TXTOUN 


027766 


TXTPTR 


027476 


TYPE 


005224 


vis 


026114 


WAYQUT 


026464 


WHOOPS 


001640 


WREQ 


003730 


WRJTEJ. 


003670 


WRITE2 


003654 


XADC 


011070 


XCHARG 


010772 


xgHHi 


011004 


XCLR 


026740 


XQOX 


003336 


XDTHIS 


003360 


XEI. 


011322 


XEM 


0112*0 


XET 


011250 


XEX 


01113* 
0112?? 


XEX2A 


011214 


XEX3 


XFSBH 


0111*26 


X|TR 


006406 


XLEO 


025404 


XLP 


026674 


XPRNTU 


003100 


XPT 


026074 


XROL 


010726 


XSAM 


025142 


XSKP 


026324 


XSQT 


010154 


XTXT 


026174 


XVEC 


026054 


i ' 


• 020724 


ZEROOM 


006370 



TERR 


003624 


*GnF 


006932 


SILENT 


027636 


SKPNOX 


002372 


sgpTj 


z 104600 


SPFCIA 


t 001449 


SQUENO 


010252 


STAC* 


t 000000 


STARTX 


002034 


STOP 


001704 


STPJNT 


027444 


SWITCH 


c 001631 


TCIEAR 


027172 


TOUHP1 


010970 


TEMP 


1X000000 


TENJNT 


025710 


TERSIZ 


> 000150 


TEX 


002366 


TINT* 


005430 


TOF 


007Z60 


TOOHlG 


027052 


TOT 


007276 


TQUQT 


005442 


TSTTXT 


027306 


TXTHAN 


027610 


UTX 


003220 


WGO 


00374J 


WRIG 


003724 


WTFSTG 


003712 


xewHn 


010756 


XOELPT 


003272 


XDS 


003276 


XER 


011316 


XEX IT 


011302 


XEX4 


011240 


XI33 


010022 


XMOV 


026064 


XPTR 


i 000002 


XSFT 


026104 


XTIC 


025916 


xxrb 


026610 


■ 
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HOW TO OBTAIN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming 
notes, software problems, and documentation corrections, are published 
by Software Information Service in the following newsletters. 

DIGITAL Software News for the PDP-8 and PDP-12 
DIGITAL Software News for the PDP-11 
DIGITAL Software News for 18-bit Computers 

These newsletters contain information applicable to software available 
from DIGITAL'S Software Distribution Center. Articles in DIGITAL 
Software News update the cumulative Software Performance Summary which 
is included in each basic kit of system software for new computers. 
To assure that the monthly DIGITAL Software News is sent to the 
appropriate software contact at your installation, please check with 
the Software Specialist or Sales Engineer at your nearest DIGITAL 
office. 

Questions or problems concerning DIGITAL'S software should be reported 
to the Software Specialist. If no Software Specialist is available, 
please send a Software Performance Report form with details of the 
problems to: 

Digital Equipment Corporation 
Software Information Service 
Software Engineering and Services 
Maynard, Massachusetts 01754 

These forms, which are provided in the software kit, should be fully 
completed and accompanied by terminal output as well as listings or 
tapes of the user program to facilitate a complete investigation. An 
answer will be sent to the individual, and appropriate topics of 
general interest will be printed in the newsletter. 

Orders for new and revised software manuals, additional Software 
Performance Report forms, and software price lists should be directed 
to the nearest DIGITAL field office or representative. USA customers 
may order directly from the Software Distribution Center in Maynard. 
When ordering, include the code number and a brief description of the 
software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user 
library and publishes a catalog of programs as well as the DECUSCOPE 
magazine for its members and non-members who request it. For further 
information, please write to: 

Digital Equipment Corporation 

DECUS 

Software Engineering and Services 

Maynard, Massachusetts 01754 
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READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to improve 
the quality and usefulness of its publications. To do this effectively 
we need user feedback — your critical evaluation of this document. 

Did you find errors in this document? If so, please specify by page. 



How can this document be improved? 



How does this document compare with other technical documents you 
have read? 
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